home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / language / modula.zoo / _defn_vdiinqui.def < prev    next >
Text File  |  1988-04-26  |  3KB  |  100 lines
  1. DEFINITION MODULE VDIInquires;
  2.  
  3.  
  4. FROM GEMVDIbase IMPORT
  5.      (* types *) VDIWorkOutType,
  6.                  PxyArrayType,
  7.                  BigPxyArrayType,
  8.                  FontNameType,
  9.                  TextAttrArrayType,
  10.                  SmallArrayType,
  11.                  DistanceArrayType,
  12.                  RGBArrayType;
  13.  
  14.  
  15. (* Inquire functions *)
  16.  
  17. PROCEDURE ExtendedInquire (Handle, OWFlag: INTEGER;
  18.                            VAR WorkOut: VDIWorkOutType);
  19.  
  20. (* Extended Inquire function *)
  21.  
  22.  
  23. PROCEDURE InquireColour (Handle, ColourIndex, setFlag: INTEGER;
  24.                          VAR rgb: RGBArrayType);
  25.  
  26. (* inquire colour representation *)
  27.  
  28.  
  29. PROCEDURE InquireLineAttributes (Handle: INTEGER;
  30.                                  VAR attrib: BigPxyArrayType);
  31.  
  32. (* inquire polyline attributes *)
  33.  
  34.  
  35. PROCEDURE InquireMarkerAttributes (Handle: INTEGER;
  36.                                    VAR attrib: BigPxyArrayType);
  37.  
  38. (* inquire polymarker attributes *)
  39.  
  40.  
  41. PROCEDURE InquireFillAttributes (Handle: INTEGER;
  42.                                  VAR attrib: BigPxyArrayType);
  43.  
  44. (* inquire fill area attributes *)
  45.  
  46.  
  47. PROCEDURE InquireTextAttributes (Handle: INTEGER;
  48.                                  VAR attrib: TextAttrArrayType);
  49.  
  50. (* Inquire graphic text attributes *)
  51.  
  52.  
  53. PROCEDURE InquireTextExtent (Handle: INTEGER;
  54.                              VAR string: ARRAY OF CHAR;
  55.                                  extent: BigPxyArrayType);
  56.  
  57. (* Inquire text extent *)
  58.  
  59.  
  60. PROCEDURE InquireCharWidth (Handle: INTEGER; character: CHAR;
  61.                             VAR CellWidth,
  62.                                 LeftDelta, RightDelta: INTEGER): INTEGER;
  63.  
  64. (* inquire character cell width *)
  65.  
  66.  
  67. PROCEDURE InquireFaceName (Handle, elementNum: INTEGER;
  68.                            VAR name: FontNameType): INTEGER;
  69.  
  70. (* inquire face name and index *)
  71.  
  72.  
  73. PROCEDURE InquireCellArray (Handle: INTEGER;
  74.                             VAR PxyArray: PxyArrayType;
  75.                                 rowLength, numRows: INTEGER;
  76.                             VAR elUsed, rowsUsed, status: INTEGER;
  77.                             VAR ColArray: ARRAY OF INTEGER);
  78.  
  79. (* inquire cell array *)
  80.  
  81. (* not yet implemented *)
  82.  
  83.  
  84. PROCEDURE InquireInputMode (Handle, devType: INTEGER;
  85.                             VAR inputMode: INTEGER);
  86.  
  87. (* inquire input mode *)
  88.  
  89.  
  90. PROCEDURE InquireFaceInfo (Handle: INTEGER; 
  91.                            VAR minADE, maxADE: INTEGER;
  92.                            VAR distances: DistanceArrayType;
  93.                            VAR maxWidth: INTEGER;
  94.                            VAR effects: RGBArrayType);
  95.  
  96. (* inquire current face information *)
  97.  
  98.  
  99. END VDIInquires.
  100.